------------------------------------------------------------------
--                             Score                            --
------------------------------------------------------------------
with Ada.Streams;

package Score is

   type Score_Type is tagged limited private;
   type Score_Ref is access all Score_Type'Class;

   procedure Increment (S : in out Score_Type;
                        Value : in Natural);

   function Results (R : Score_Type) return Natural;

   -- Not_Enough_Funds : exception;

private

    type Score_Type is tagged limited record
			-- variabile contenente il risultato del match
			Result_1 : Natural := 0;
			Result_2 : Natural := 0;
    end record;

   procedure My_Write (Stream : access Ada.Streams.Root_Stream_Type'Class;
                       Item   : in Score_Type);
   for Score_Type'Write use My_Write;

   procedure My_Read (Stream : access Ada.Streams.Root_Stream_Type'Class;
                      Item   : out Score_Type);
   for Score_Type'Read use My_Read;

end Accounts;
